home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / demos / rdb-salv / install < prev    next >
Text File  |  1996-07-03  |  31KB  |  1,073 lines
  1. ;$VER: RDB-Salv-Install 1.1 (03-Jul-96)
  2. ;
  3.  
  4. (set txt_lang_0 "Deutsch")    (set txt_langdir_0 "deutsch")
  5. (set txt_lang_1 "English")    (set txt_langdir_1 "english")
  6. (set txt_lang_2 "Français")   (set txt_langdir_2 "français")
  7. (set txt_lang_3 "Italiano")   (set txt_langdir_3 "italiano")
  8. (set txt_lang_4 "Nederlands") (set txt_langdir_4 "nederlands")
  9. (set txt_lang_5 "Norsk")      (set txt_langdir_5 "norsk")
  10. (set txt_lang_6 "Suomi")      (set txt_langdir_6 "suomi")
  11. (set txt_lang_7 "Svenska")    (set txt_langdir_7 "svenska")
  12. (set txt_lang_8 "")           (set txt_langdir_8 "")
  13. (set txt_lang_9 "")           (set txt_langdir_9 "")
  14.  
  15. (set numlangs 8)
  16.  
  17. (set langnum
  18.     (askchoice
  19.         (prompt "Choose the language to be used in this installer script.")
  20.         (help @askchoice-help)
  21.         (choices
  22.             txt_lang_0
  23.             txt_lang_1
  24.             txt_lang_2
  25.             txt_lang_3
  26.             txt_lang_4
  27.             txt_lang_5
  28.             txt_lang_6
  29.             txt_lang_7
  30.         )
  31.         (default
  32.             (if (patmatch @language txt_lang_0)
  33.                 0
  34.                 (if (patmatch @language txt_lang_1)
  35.                     1
  36.                     (if (patmatch @language txt_lang_2)
  37.                         2
  38.                         (if (patmatch @language txt_lang_3)
  39.                             3
  40.                             (if (patmatch @language txt_lang_4)
  41.                                 4
  42.                                 (if (patmatch @language txt_lang_5)
  43.                                     5
  44.                                     (if (patmatch @language txt_lang_6)
  45.                                         6
  46.                                         (if (patmatch @language txt_lang_7)
  47.                                             7
  48.                                             1    ; English
  49.                                         )
  50.                                     )
  51.                                 )
  52.                             )
  53.                         )
  54.                     )
  55.                 )
  56.             )
  57.         )
  58.     )
  59. )
  60.  
  61. (if (= langnum 0) (set langstring txt_lang_0))
  62. (if (= langnum 1) (set langstring txt_lang_1))
  63. (if (= langnum 2) (set langstring txt_lang_2))
  64. (if (= langnum 3) (set langstring txt_lang_3))
  65. (if (= langnum 4) (set langstring txt_lang_4))
  66. (if (= langnum 5) (set langstring txt_lang_5))
  67. (if (= langnum 6) (set langstring txt_lang_6))
  68. (if (= langnum 7) (set langstring txt_lang_7))
  69. (if (= langnum 8) (set langstring txt_lang_8))
  70. (if (= langnum 9) (set langstring txt_lang_9))
  71.  
  72.  
  73. ; Set default strings
  74.  
  75. (set txt_choose_rdbsalv_directory
  76.     ("%s%s"
  77.         "Please choose the destination directory for RDB-Salv. "
  78.         "A drawer named \"RDB-Salv\" will be created there."
  79.     )
  80. )
  81. (set txt_which_languages_to_install
  82.     ("%s"
  83.         "Which languages do you want to install?"
  84.     )
  85. )
  86. (set txt_which_devicename 
  87.     ("%s%s"
  88.         "Please enter the name of the device you are usually using. "
  89.         "You MUST write this name in a CASE-SENSITIVE way!"
  90.     )
  91. )
  92. (set txt_which_devicename_help
  93.     ("%s%s%s"
  94.         "The name requires the suffix .device. The device must be in memory at the moment. "
  95.         "If you don't know the name of the device, consult the manual of your harddisk controller "
  96.         "or SCSI hostadapter, please."
  97.     )
  98. )
  99. (set txt_device_not_there
  100.     ("%s%s"
  101.         "You may only choose a device which is already loaded into memory.\n"
  102.         "Sorry, but \"%s\" is not yet in memory."
  103.     )
  104. )
  105. (set txt_must_end_with_device
  106.     ("%s%s"
  107.         "A device always ends on \".device\". Please try again!\n"
  108.         "You have entered \"%s\"."
  109.     )
  110. )
  111. (set txt_which_unitnumber
  112.     ("%s"
  113.         "Please enter the number of the unit your drive is connected with."
  114.     )
  115. )
  116. (set txt_which_unitnumber_help
  117.     ("%s%s"
  118.         "If you are using more than one drive, use the number you're probably using more often. "
  119.         "If you don't know the unit number, enter 0."
  120.     )
  121. )
  122. (set txt_cannot_find_lang_docs
  123.     ("%s%s"
  124.         "Sorry, cannot find any docs for language \"%s\".\n\n"
  125.         "Installation of the docs of this language skipped."
  126.     )
  127. )
  128. (set txt_cannot_find_lang_catalogs
  129.     ("%s%s"
  130.         "Sorry, cannot find any catalogs for language \"%s\".\n\n"
  131.         "Installation of the catalogs of this language skipped."
  132.     )
  133. )
  134. (set txt_warning_unknown_device_etc
  135.     ("%s%s%s%s"
  136.         "Sorry, we could not test the device you are using and so the "
  137.         "best configuration cannot be set automatically. Please read the "
  138.         "installation chapter in the manual and follow the instrutions "
  139.         "which are described there."
  140.     )
  141. )
  142. (set txt_start_rdbtools_debug
  143.     ("%s%s%s%s%s%s"
  144.         "Do you have email access and do you want to support the future "
  145.         "development of RDB-Salv? Then, please allow a test program to be "
  146.         "started. It creates the file \"T:RDB-Tools-Mail\". Please send "
  147.         "this file to \"Angela.Schmidt@stud.uni-karlsruhe.de\", so this "
  148.         "installer script will be able to support your system much better in future.\n\n"
  149.         "Do you want the test program to be started?"
  150.     )
  151. )
  152. (set txt_start_rdbtools_debug_help
  153.     ("%s%s%s%s"
  154.         "This tool tests your device driver for bugs. This allows some "
  155.         "workaround to be written in future. The commands TD_GETGEOMETRY, "
  156.         "HD_SCSICMD (to find out the media size) and CMD_READ will be sent and "
  157.         "some a protocol will be written."
  158.     )
  159. )
  160. (set txt_start_rdbtools_debug_thanx
  161.     ("%s%s"
  162.         "Thank you for your support. Please send now \"T:RDB-Tools-Mail\" to "
  163.         "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  164.     )
  165. )
  166.  
  167. ;(if (patmatch langstring "English")
  168. ;    (
  169. ;        ; default strings set above
  170. ;    )
  171. ;)
  172. (if (patmatch langstring "Deutsch")
  173.     (
  174.         (set txt_choose_rdbsalv_directory
  175.             ("%s%s"
  176.                 "Bitte wählen Sie das Zielverzeichnis für RDB-Salv. "
  177.                 "Es wird ein eigener Ordner mit dem Namen \"RDB-Salv\" angelegt."
  178.             )
  179.         )
  180.         (set txt_which_languages_to_install
  181.             ("%s"
  182.                 "Welche Sprachen möchten Sie installieren?"
  183.             )
  184.         )
  185.         (set txt_which_devicename 
  186.             ("%s%s"
  187.                 "Bitte geben Sie den Namen des Gerätes (Devices) ein, das Sie normalerweise verwenden. "
  188.                 "Bitte beachten Sie UNBEDINGT, daß Sie die Groß-/Kleinschreibung EXAKT einhalten!"
  189.             )
  190.         )
  191.         (set txt_which_devicename_help
  192.             ("%s%s%s"
  193.                 "Der Name muß auf .device enden. Das Gerät muß momentan angemeldet sein. "
  194.                 "Falls Sie den Geräte-Namen nicht kennen, schlagen Sie bitte im Handbuch "
  195.                 "Ihres Festplattencontrollers/Hostadapters nach."
  196.             )
  197.         )
  198.         (set txt_device_not_there
  199.             ("%s%s"
  200.                 "Sie können nur ein Device wählen, das bereits in den Speicher geladen wurde.\n"
  201.                 "\"%s\" ist leider noch nicht im Speicher."
  202.             )
  203.         )
  204.         (set txt_must_end_with_device
  205.             ("%s%s"
  206.                 "Ein Gerätetreiber (Device) endet immer auf \".device\". Bitte nochmal probieren!\n"
  207.                 "Sie haben \"%s\" eingegeben."
  208.             )
  209.         )
  210.         (set txt_which_unitnumber
  211.             ("%s"
  212.                 "Bitte geben Sie ein, unter welcher Gerätenummer (Unit) Ihre Festplatte angeschlossen ist."
  213.             )
  214.         )
  215.         (set txt_which_unitnumber_help
  216.             ("%s%s"
  217.                 "Falls Sie mehrere Festplatten haben, geben Sie die voraussichtlich am häufigsten "
  218.                 "benutzte Gerätenummer ein. Falls Sie die Gerätenummer nicht kennen, geben Sie 0 ein."
  219.             )
  220.         )
  221.         (set txt_cannot_find_lang_docs
  222.             ("%s%s"
  223.                 "Die Anleitung für die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
  224.                 "Die Installation der Anleitung dieser Sprache wurde übersprungen."
  225.             )
  226.         )
  227.         (set txt_cannot_find_lang_catalogs
  228.             ("%s%s"
  229.                 "Der Katalog für die Sprache \"%s\" kann leider nicht gefunden werden.\n\n"
  230.                 "Die Installation des Katalogs dieser Sprache wurde übersprungen."
  231.             )
  232.         )
  233.         (set txt_warning_unknown_device_etc
  234.             ("%s%s%s%s"
  235.                 "Leider konnten wir das von Ihnen verwendete Gerät nicht ausprobieren. "
  236.                 "Daher können die idealen Einstellungen nicht automatisch gesetzt werden. "
  237.                 "Bitte lesen Sie im Handbuch das Installations-Kapitel und befolgen Sie die "
  238.                 "dort beschriebenen weiteren Anweisungen."
  239.             )
  240.         )
  241.         (set txt_start_rdbtools_debug
  242.             ("%s%s%s%s%s%s"
  243.                 "Haben Sie EMail-Zugang und möchten Sie die zukünftige Entwicklung von "
  244.                 "RDB-Salv unterstützen? Dann erlauben Sie bitte, daß ein Test-Programm "
  245.                 "gestartet wird, das die Datei \"T:RDB-Tools-Mail\" erzeugt. Schicken Sie "
  246.                 "diese Datei dann bitte an \"Angela.Schmidt@stud.uni-karlsruhe.de\", "
  247.                 "damit dieses Installer-Script Ihr System in Zukunft besser unterstützen kann.\n\n"
  248.                 "Soll das Test-Programm gestartet werden?"
  249.             )
  250.         )
  251.         (set txt_start_rdbtools_debug_help
  252.             ("%s%s%s%s"
  253.                 "Dieses Tool testet Ihren Gerätetreiber auf Unzulänglichkeiten, damit diese "
  254.                 "in Zukunft umgangen werden können. Es werden die Befehle TD_GETGEOMETRY, "
  255.                 "HD_SCSICMD (zum Herausfinden der Plattengröße) und CMD_READ abgeschickt und "
  256.                 "einige Daten protokolliert."
  257.             )
  258.         )
  259.         (set txt_start_rdbtools_debug_thanx
  260.             ("%s%s"
  261.                 "Vielen Dank für Ihre Unterstützung. Schicken Sie \"T:RDB-Tools-Mail\" nun "
  262.                 "bitte an \"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  263.             )
  264.         )
  265.     )
  266. )
  267. (if (patmatch langstring "Français")
  268.     (
  269.         (set txt_choose_rdbsalv_directory
  270.             ("%s%s"
  271.                 "Veuillez choisir le répertoire de destination pour RDB-Salv. "
  272.                 "Un tiroir nommé \"RDB-Salv\" y sera créé."
  273.             )
  274.         )
  275.         (set txt_which_languages_to_install
  276.             ("%s"
  277.                 "Quelles langues voulez-vous installer ?"
  278.             )
  279.         )
  280.         (set txt_which_devicename 
  281.             ("%s%s"
  282.                 "Veuillez entrer le nom du périphérique que utilisez d'habitude. "
  283.                 "Vous DEVEZ écrire ce nom en TENANT COMPTE DES MAJUSCULES !"
  284.             )
  285.         )
  286.         (set txt_which_devicename_help
  287.             ("%s%s%s"
  288.                 "Le suffixe .device est nécessaire pour ce nom. Le périphérique doit être en mémoire actuellement. "
  289.                 "Si vous ne connaissez pas ce nom, veuillez consulter le manuel de votre contrôleur "
  290.                 " de disque dur ou contrôleur SCSI."
  291.             )
  292.         )
  293.         (set txt_device_not_there
  294.             ("%s%s"
  295.                 "Vous ne pouvez choisir qu'un périphérique qui est déjà chargé en mémoire.\n"
  296.                 "Désolé, mais \"%s\" n'est pas encore en mémoire."
  297.             )
  298.         )
  299.         (set txt_must_end_with_device
  300.             ("%s%s"
  301.                 "Le nom d'un pilote de périphérique se termine toujours par \".device\". Veuillez réessayer !\n"
  302.                 "Vous avez entré \"%s\"."
  303.             )
  304.         )
  305.         (set txt_which_unitnumber
  306.             ("%s"
  307.                 "Veuillez entrer le numéro d'unité sous lequel votre disque est connecté."
  308.             )
  309.         )
  310.         (set txt_which_unitnumber_help
  311.             ("%s%s"
  312.                 "Si vous utilisez plus d'un seul disque, donnez le numéro que vous emploierez le plus souvent. "
  313.                 "Si vous ne connaissez pas le numéro d'unité, entrez 0."
  314.             )
  315.         )
  316.         (set txt_cannot_find_lang_docs
  317.             ("%s%s"
  318.                 "Désolé, impossible de trouver de documentation dans la langue \"%s\".\n\n"
  319.                 "L'installation de la documentation dans cette langue est ignorée."
  320.             )
  321.         )
  322.         (set txt_cannot_find_lang_catalogs
  323.             ("%s%s"
  324.                 "Désolé, impossible de trouver de catalogue dans la langue \"%s\".\n\n"
  325.                 "L'installation du catalogue dans cette langue est ignorée."
  326.             )
  327.         )
  328.         (set txt_warning_unknown_device_etc
  329.             ("%s%s%s%s"
  330.                 "Désolé, nous n'avons pas pu tester le périphérique indiqué et la meilleure "
  331.                 "configuration ne peut donc pas être trouvée automatiquement. Veuillez lire "
  332.                 "le chapitre sur l'installation dans le manuel et suivre les instrutions "
  333.                 "qui y sont décrites."
  334.             )
  335.         )
  336.         (set txt_start_rdbtools_debug
  337.             ("%s%s%s%s%s%s"
  338.                 "Avez-vous accès au courrier électronique et voulez-vous soutenir le développement "
  339.                 "futur de RDB-Salv ? Dans ce cas, veuillez permettre le lancement d'un programme de "
  340.                 "test. Il crée le fichier \"T:RDB-Tools-Mail\". Veuillez envoyer ce fichier "
  341.                 "à \"Angela.Schmidt@stud.uni-karlsruhe.de\", de sorte que ce script "
  342.                 "d'installation soit capable de mieux reconnaître votre système à l'avenir.\n\n"
  343.                 "Désirez-vous que le programme de test soit lancé ?"
  344.             )
  345.         )
  346.         (set txt_start_rdbtools_debug_help
  347.             ("%s%s%s%s"
  348.                 "Cet outil recherche d'éventuelles bogues dans votre pilote de périphériques. "
  349.                 "Ce qui permettra dans le futur de concevoir des astuces les contournant. Les "
  350.                 "commandes TD_GETGEOMETRY, HD_SCSICMD (afin de déterminer la taille du support) "
  351.                 "et CMD_READ seront envoyées afin de pouvoir écrire un protocole."
  352.             )
  353.         )
  354.         (set txt_start_rdbtools_debug_thanx
  355.             ("%s%s"
  356.                 "Merci de votre soutien. Veuillez envoyer maintenant \"T:RDB-Tools-Mail\" à "
  357.                 "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  358.             )
  359.         )
  360.     )
  361. )
  362. (if (patmatch langstring "Italiano")
  363.     (
  364.         (set txt_choose_rdbsalv_directory
  365.             ("%s%s"
  366.                 "Scegliete la directory di destinazione per RDB-Salv. "
  367.                 "Verrà creato un cassetto dal nome \"RDB-Salv\"."
  368.             )
  369.         )
  370.         (set txt_which_languages_to_install
  371.             ("%s"
  372.                 "Quali lingue volete installare?"
  373.             )
  374.         )
  375.         (set txt_which_devicename 
  376.             ("%s%s"
  377.                 "Inserite il nome del device che utilizzate solitamente. "
  378.                 "I caratteri MAIUSCOLI/minuscoli sono diversi!"
  379.             )
  380.         )
  381.         (set txt_which_devicename_help
  382.             ("%s%s%s"
  383.                 "Il nome deve avere il suffisso .device. Il device deve essere in memoria adesso. "
  384.                 "Se non conoscete il nomde del device, consultate il manuale del vostro controller "
  385.                 "o SCSI hostadapter."
  386.             )
  387.         )
  388.         (set txt_device_not_there
  389.             ("%s%s"
  390.                 "Potete solo scegliere un device che sia già caricato in memoria.\n"
  391.                 "Spiacente, ma \"%s\" non è in memoria."
  392.             )
  393.         )
  394.         (set txt_must_end_with_device
  395.             ("%s%s"
  396.                 "Un device deve sempre terminare con  \".device\". Provate di nuovo!\n"
  397.                 "Avete inserito \"%s\"."
  398.             )
  399.         )
  400.         (set txt_which_unitnumber
  401.             ("%s"
  402.                 "Scegliete il numero dell'unità con il quale è collegata la vostra unità."
  403.             )
  404.         )
  405.         (set txt_which_unitnumber_help
  406.             ("%s%s"
  407.                 "Se state usando più di un drive, usate il numero dell'unità che usate più spesso. "
  408.                 "Se non conoscete il numero dell'unità, inserite 0."
  409.             )
  410.         )
  411.         (set txt_cannot_find_lang_docs
  412.             ("%s%s"
  413.                 "Spiacente, ma non trovo la documentazione in \"%s\".\n\n"
  414.                 "Salto l'installazione dei docs di questa lingua."
  415.             )
  416.         )
  417.         (set txt_cannot_find_lang_catalogs
  418.             ("%s%s"
  419.                 "Spiacente, ma non trovo i cataloghi in \"%s\".\n\n"
  420.                 "Salto l'installazione dei cataloghi in questa lingua."
  421.             )
  422.         )
  423.         (set txt_warning_unknown_device_etc
  424.             ("%s%s%s%s"
  425.                 "Spiacente, ma non posso provare il device che state usando e "
  426.                 "quindi non posso impostare la configurazione migliore automaticamente. "
  427.                 "Leggete il manuale al capitolo sull'installazione e seguite le "
  428.                 "istruzioni che sono descritte li."
  429.             )
  430.         )
  431.         (set txt_start_rdbtools_debug
  432.             ("%s%s%s%s%s%s"
  433.                 "Avete accesso alla e-mail e volete supportare lo sviluppo futuro "
  434.                 "di RDB-Salv? Allora lasciate partire l'esecuzione di un programma "
  435.                 "di prova. Creerà un file \"T:RDB-Tools-Mail\". Mandate questo "
  436.                 "file a \"Angela.Schmidt@stud.uni-karlsruhe.de\", cosicché questo "
  437.                 "script di installazione sarà in grado di supportare il vostro sistema molto "
  438.                 "meglio un futuro.\n\n"
  439.                 "Volete lanciare il programma di prova?"
  440.             )
  441.         )
  442.         (set txt_start_rdbtools_debug_help
  443.             ("%s%s%s%s"
  444.                 "Questo programma prova il vostro device driver per trovare dei bug. "
  445.                 "In questo modo potrò aggirare i problemi. I commandis TD_GETGEOMETRY, "
  446.                 "HD_SCSICMD (per trovare la dimensione del supporto) e CMD_READ verranno "
  447.                 "inviati e saranno scritti alcuni protocolli."
  448.             )
  449.         )
  450.         (set txt_start_rdbtools_debug_thanx
  451.             ("%s%s"
  452.                 "Grazie per il vostro supporto. Inviate \"T:RDB-Tools-Mail\" a"
  453.                 "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  454.             )
  455.         )
  456.     )
  457. )
  458. (if (patmatch langstring "Nederlands")
  459.     (
  460.         (set txt_choose_rdbsalv_directory
  461.             ("%s%s"
  462.                 "Kiest u alstublieft een directory voor RDB-Salv. "
  463.                 "Een lade met de naam \"RDB-Salv\" wordt voor u aangemaakt."
  464.             )
  465.         )
  466.         (set txt_which_languages_to_install
  467.             ("%s"
  468.                 "Welke talen wilt u geïnstalleerd zien?"
  469.             )
  470.         )
  471.         (set txt_which_devicename
  472.             ("%s%s"
  473.                 "Geeft u svp op welk apparaat u het meest gebruikt. "
  474.                 "Er wordt ONDERSCHEID tussen boven- en onderkast gemaakt!"
  475.             )
  476.         )
  477.         (set txt_which_devicename_help
  478.             ("%s%s%s"
  479.                 "De naam moet het achtervoegsel .device hebben. Het apparaat dient nu in het geheugen te zijn. "
  480.                 "Als u de naam van het bestand niet weet, kijkt u dan alstublieft in het handboek van uw "
  481.                 "controller/SCSI-hostadapter."
  482.             )
  483.         )
  484.         (set txt_device_not_there
  485.             ("%s%s"
  486.                 "u kunt alleen een apparaat kiezen dat nu in het geheugen staat.\n"
  487.                 "Sorry, maar \"%s\" staat nu niet in het geheugen."
  488.             )
  489.         )
  490.         (set txt_must_end_with_device
  491.             ("%s%s"
  492.                 "Een apparaatnaam eindigt altijd op \".device\". Probeert u het nog eens!\n"
  493.                 "U hebt \"%s\" ingevoerd."
  494.             )
  495.         )
  496.         (set txt_which_unitnumber
  497.             ("%s"
  498.                 "Please enter the number of the unit your drive is connected with."
  499.             )
  500.         )
  501.         (set txt_which_unitnumber_help
  502.             ("%s%s"
  503.                 "If you are using more than one drive, use the number you're probably using more often. "
  504.                 "If you don't know the unit number, enter 0."
  505.             )
  506.         )
  507.         (set txt_cannot_find_lang_docs
  508.             ("%s%s"
  509.                 "Sorry, cannot find any docs for language \"%s\".\n\n"
  510.                 "Installation of the docs of this language skipped."
  511.             )
  512.         )
  513.         (set txt_cannot_find_lang_catalogs
  514.             ("%s%s"
  515.                 "Sorry, kan geen catalogs voor de taal \"%s\" vinden.\n\n"
  516.                 "Installatie van catalogs voor deze taal overegeslagen."
  517.             )
  518.         )
  519.         (set txt_warning_unknown_device_etc
  520.             ("%s%s%s%s"
  521.                 "Sorry, we konden het apparaat dat u gebruikt niet testen waardoor "
  522.                 "de optimale instellingen niet automatisch gemaakt konden worden. "
  523.                 "Leest u alstublieft het hoofdstuk over installatie in de handleiding "
  524.                 "en volgt u de aanwijzingen die daar staan."
  525.             )
  526.         )
  527.         (set txt_start_rdbtools_debug
  528.             ("%s%s%s%s%s%s"
  529.                 "Hebt u e-mail en wilt u meehelpen aan het ontwikkelen van "
  530.                 "RDB-Salv? In dat geval kunt u een test-programma'tje laten "
  531.                 "opstarten. Het maakt een bestand \"T:RDB-Tools-Mail\". Stuurt u "
  532.                 "dit bestand alstublieft naar \"Angela.Schmidt@stud.uni-karlsruhe.de\" "
  533.                 "zodat dit installatiescript uw systeem in toekomst beter zal kunnen ondersteunen. "
  534.                 "Staat u toe dat dit programma gestart wordt?"
  535.             )
  536.         )
  537.         (set txt_start_rdbtools_debug_help
  538.             ("%s%s%s%s"
  539.                 "Dit programma onderzoekt uw apparaataanstuurder op fouten. Dat maakt "
  540.                 "het mogelijk in de toekomst de fout te omzeilen. De opdrachten TD_GETGEOMETRY, "
  541.                 "HD_SCSICMD (om de grootte van het medium te vinden) en CMD_READ zullen gestuurd worden "
  542.                 "een protocol zal geschreven worden."
  543.             )
  544.         )
  545.         (set txt_start_rdbtools_debug_thanx
  546.             ("%s%s"
  547.                 "Hartelijk dank voor uw steun. Stuurt u nu \"T:RDB-Tools-Mail\" naar "
  548.                 "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  549.             )
  550.         )
  551.     )
  552. )
  553. (if (patmatch langstring "Norsk")
  554.     (
  555.         (set txt_choose_rdbsalv_directory
  556.             ("%s%s"
  557.                 "Vennligst velg en katalog å plassere RDB-Salv i. "
  558.                 "En katalog med navn \"RDB-Salv\" vil bli opprettet der."
  559.             )
  560.         )
  561.         (set txt_which_languages_to_install
  562.             ("%s"
  563.                 "Hvilke språk vil du installere?"
  564.             )
  565.         )
  566.         (set txt_which_devicename 
  567.             ("%s%s"
  568.                 "Vennligst skriv inn navnet på den enheten du vanligvis bruker. "
  569.                 "Du MÅ skrive inn navnet korrekt med tanke på STORE og små bokstaver!"
  570.             )
  571.         )
  572.         (set txt_which_devicename_help
  573.             ("%s%s%s"
  574.                 "Navnet må ha etternavnet .device. Enheten må være i minnet på det nåværende tidspunkt. "
  575.                 "Hvis du ikke vet navnet på enheten, konsulter manualen til harddisk-kontrolleren "
  576.                 "eller SCSI vertskortet ditt."
  577.             )
  578.         )
  579.         (set txt_device_not_there
  580.             ("%s%s"
  581.                 "Du kan kun velge en enhet som allerede er lastet inn i minnet.\n"
  582.                 "Beklager, men \"%s\" er ikke i minnet på det nåværende tidspunkt."
  583.             )
  584.         )
  585.         (set txt_must_end_with_device
  586.             ("%s%s"
  587.                 "En enhet må alltid slutte på \".device\". Vennligst prøv igjen!\n"
  588.                 "Du skrev inn \"%s\"."
  589.             )
  590.         )
  591.         (set txt_which_unitnumber
  592.             ("%s"
  593.                 "Vennligst skriv inn nummeret på enheten som disken din er forbundet med."
  594.             )
  595.         )
  596.         (set txt_which_unitnumber_help
  597.             ("%s%s"
  598.                 "Hvis du bruker mere enn en disk, skriv det nummeret du bruker oftest. "
  599.                 "Hvis du ikke vet enhets-nummeret, skriv 0."
  600.             )
  601.         )
  602.         (set txt_cannot_find_lang_docs
  603.             ; *** This string is still subject to be translated!
  604.             ("%s%s"
  605.                 "Beklager, kunne ikke finne dokumentasjon for språket \"%s\".\n\n"
  606.                 "Installeringen av dokumentasjonen for dette språket hoppes over."
  607.             )
  608.         )
  609.         (set txt_cannot_find_lang_catalogs
  610.             ; *** This string is still subject to be translated!
  611.             ("%s%s"
  612.                 "Beklager kunne ikke finne språkfiler for språket \"%s\".\n\n"
  613.                 "Installeringen av dokumentasjonen for dette språket hoppes over."
  614.             )
  615.         )
  616.         (set txt_warning_unknown_device_etc
  617.             ("%s%s%s%s"
  618.                 "Beklager men vi kunne ikke teste enheten du bruker, og vi kan "
  619.                 "derfor ikke automatisk sette de perfekte innstillingene dine automatisk. Vennligst les "
  620.                 "innstallerings-kapittelet i manualen og følg instruksjonene "
  621.                 "som er beskrevet der."
  622.             )
  623.         )
  624.         (set txt_start_rdbtools_debug
  625.             ("%s%s%s%s%s%s"
  626.                 "Har du en EMail adresse og vil være med å støtte den videre fremtidige "
  627.                 "utviklingen av RDB-Salv? Da kan du vennligst tillate et testprogram "
  628.                 "å bli startet. Det lager filen \"T:RDB-Tools-Mail\". Vennligst send "
  629.                 "denne filen til \"Angela.Schmidt@stud.uni-karlsruhe.de\", så dette "
  630.                 "installerings-scriptet vil ha muligheten til å støtte ditt system bedre i fremtiden.\n\n"
  631.                 "Vil du starte testprogrammet nå?"
  632.             )
  633.         )
  634.         (set txt_start_rdbtools_debug_help
  635.             ("%s%s%s%s"
  636.                 "Dette programmet tester enheten din for \"bugs\". Dette muliggjør "
  637.                 "å lage en slags fiksing av dette i fremtiden. Kommandoene TD_GETGEOMETRY, "
  638.                 "HD_SCSICMD (for å finne ut lagringskapasiteten på mediet) og CMD_READ vil bli sendt og "
  639.                 "en loggfil vil bli skrevet."
  640.             )
  641.         )
  642.         (set txt_start_rdbtools_debug_thanx
  643.             ("%s%s"
  644.                 "Tusen takk for hjelpen. Vennligst send \"T:RDB-Tools-Mail\" til "
  645.                 "\"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  646.             )
  647.         )
  648.     )
  649. )
  650. (if (patmatch langstring "Suomi")
  651.     (message "Sorry, no Finnish Installer messages yet. Using English messages instead.")
  652. )
  653. (if (patmatch langstring "Svenska")
  654.     (
  655.         (set txt_choose_rdbsalv_directory
  656.             ("%s%s"
  657.                 "Välj var du vill installera RDB-Salv. "
  658.                 "En låda kallad \"RDB-Salv\" kommer att skapas automatiskt."
  659.             )
  660.         )
  661.         (set txt_which_languages_to_install
  662.             ("%s"
  663.                 "Vilka språk vill du installera?"
  664.             )
  665.         )
  666.         (set txt_which_devicename 
  667.             ("%s%s"
  668.                 "Skriv in vilket device du normalt använder. "
  669.                 "Tänk på att det i det här fallet är skillnad mellan stora och små bokstäver!"
  670.             )
  671.         )
  672.         (set txt_which_devicename_help
  673.             ("%s%s%s"
  674.                 "Device-namnet måste sluta med \".device\". Devicet måste vara inladdat i minnet. "
  675.                 "Om du inte vet vilket device som gäller, se efter i manualen du fick med din "
  676.                 "hårddiskkontroller eller SCSI-hostadapter."
  677.             )
  678.         )
  679.         (set txt_device_not_there
  680.             ("%s%s"
  681.                 "Du kan bara välja ett device som för tillfället är inladdat i minnet.\n"
  682.                 "\"%s\" finns tyvärr inte i minnet."
  683.             )
  684.         )
  685.         (set txt_must_end_with_device
  686.             ("%s%s"
  687.                 "Ett device måste alltid sluta med \".device\". Försök igen.\n"
  688.                 "Du skrev \"%s\"."
  689.             )
  690.         )
  691.         (set txt_which_unitnumber
  692.             ("%s"
  693.                 "Skriv in vilket enhetsnummer din drive är ansluten som."
  694.             )
  695.         )
  696.         (set txt_which_unitnumber_help
  697.             ("%s%s"
  698.                 "Om du använder mer än en drive, skriv numret för den du tror att du använder oftast.\n"
  699.                 "Om du inte vet vilket nummer som gäller, skriv 0."
  700.             )
  701.         )
  702.         (set txt_cannot_find_lang_docs
  703.             ("%s%s"
  704.                 "Kan inte hitta manualen på \"%s\".\n\n"
  705.                 "Hoppar över installationen av manualen på detta språk."
  706.             )
  707.         )
  708.         (set txt_cannot_find_lang_catalogs
  709.             ("%s%s"
  710.                 "Kan inte hitta några kataloger på \"%s\".\n\n"
  711.                 "Hoppar över installationen av katalogerna på detta språk."
  712.             )
  713.         )
  714.         (set txt_warning_unknown_device_etc
  715.             ("%s%s%s%s"
  716.                 "Tyvärr kunde devicet du använder inte testas, och därför kan inte de "
  717.                 "optimala inställningarna göras automatiskt. "
  718.                 "När installationen är klar, läs kapitlet om installation i manualen, "
  719.                 "och följ dessa instruktioner."        
  720.             )
  721.         )
  722.         (set txt_start_rdbtools_debug
  723.             ("%s%s%s%s%s%s"
  724.                 "Har du tillgång till E-post och vill stödja den fortsatta utvecklingen av RDB-salv?\n"
  725.                 "Låt i så fall testprogrammet startas. Det skapar filen \T:RDB-Tools-Mail\". "
  726.                 "Skicka denna fil till \"Angela.Schmidt@stud.uni-karlsruhe.de\", "
  727.                 "så kommer den här installationsskripten att kunna stödja ditt system bättre "
  728.                 "i framtida versioner.\n\n"
  729.                 "Vill du starta testprogrammet?"
  730.             )
  731.         )
  732.         (set txt_start_rdbtools_debug_help
  733.             ("%s%s%s%s"
  734.                 "Detta program testar drivrutinen för ditt ditt device efter buggar. Det ger "
  735.                 "möjlighet att på olika sätt ta sig runt dessa i framtiden. "
  736.                 "Kommandona TD_GETGEOMETRY, HD_SCSICMD (för att ta reda på mediets storlek) och "
  737.                 "CMD_READ kommer att ges, och resultaten kommer att protokollföras."
  738.             )
  739.         )
  740.         (set txt_start_rdbtools_debug_thanx
  741.             ("%s%s"
  742.                 "Tack för hjälpen! Skicka nu filen \"T:RDB-Tools-Mail\" "
  743.                 "till \"Angela.Schmidt@stud.uni-karlsruhe.de\"."
  744.             )
  745.         )
  746.     )
  747. )
  748.  
  749. (set todir @default-dest)
  750. (set todir
  751.     (askdir
  752.         (prompt txt_choose_rdbsalv_directory)
  753.         (help @askdir-help)
  754.         (default todir)
  755.     )
  756. )
  757. (set newdir (tackon todir "RDB-Salv"))
  758. (if (not (exists newdir))
  759.     (
  760.         (makedir newdir (infos))
  761.     )
  762. )
  763. (set @default-dest newdir)
  764.  
  765. (set i 0)
  766. (set langbits 0)
  767. (while (< i numlangs)
  768.     (
  769.         (set thislangdir (select i txt_langdir_0 txt_langdir_1 txt_langdir_2 txt_langdir_3 txt_langdir_4 txt_langdir_5 txt_langdir_6 txt_langdir_7 txt_langdir_8 txt_langdir_9))
  770.         (set langbits
  771.             (if
  772.                 (OR
  773.                     (OR
  774.                         (= 1 (exists ("doc_%s.lha" thislangdir)))
  775.                         (= 2 (exists (tackon "Catalogs" thislangdir)))
  776.                     )
  777.                     (= 2 (exists thislangdir))
  778.                 )
  779.                 ( ; then
  780.                     (+ langbits (shiftleft 1 i))
  781.                 )
  782.                 ( ; else
  783.                     (+ langbits 0)
  784.                 )
  785.             )
  786.         )
  787.         (set i (+ i 1))
  788.     )
  789. )
  790.  
  791.  
  792. (set langbits
  793.     (askoptions
  794.         (prompt txt_which_languages_to_install)
  795.         (help @askchoice-help)
  796.         (choices txt_lang_0 txt_lang_1 txt_lang_2 txt_lang_3 txt_lang_4 txt_lang_5 txt_lang_6 txt_lang_7)
  797.         (default langbits)
  798.     )
  799. )
  800.  
  801. (set devicename "none")
  802. (set vernum 0)
  803.  
  804. (until (AND (patmatch "#?.device" devicename) (<> vernum 0))
  805.     (set devicename
  806.         (askstring
  807.             (prompt txt_which_devicename)
  808.             (help txt_which_devicename_help)
  809.             (default "scsi.device")
  810.         )
  811.     )
  812.  
  813.     (set vernum (getversion devicename (resident)))
  814.     (set deviceversion (/ vernum 65536))
  815.     (set devicerevision (- vernum (* deviceversion 65536)))
  816.  
  817.     (if (patmatch "#?.device" devicename)
  818.         (
  819.             (if (= 0 vernum)
  820.                 (
  821.                     (message (txt_device_not_there devicename))
  822.                 )
  823.             )
  824.         )
  825.         ; else
  826.         (
  827.             (message (txt_must_end_with_device devicename))
  828.         )
  829.     )
  830. )
  831.  
  832. (set unitnumber
  833.     (asknumber
  834.         (prompt txt_which_unitnumber)
  835.         (help txt_which_unitnumber_help)
  836.         (default 0)
  837.     )
  838. )
  839.  
  840. (copyfiles
  841.     (source "")
  842.     (dest newdir)
  843.     (pattern "(RDB-Salv|RDB-Salv.info|rdbtools-debug|registerscript)")
  844.     (optional force)
  845. )
  846.  
  847. (set i 0)
  848. (while (< i numlangs)
  849.     (
  850.         (set thislang (select i txt_lang_0 txt_lang_1 txt_lang_2 txt_lang_3 txt_lang_4 txt_lang_5 txt_lang_6 txt_lang_7 txt_lang_8 txt_lang_9))
  851.         (set thislangdir (select i txt_langdir_0 txt_langdir_1 txt_langdir_2 txt_langdir_3 txt_langdir_4 txt_langdir_5 txt_langdir_6 txt_langdir_7 txt_langdir_8 txt_langdir_9))
  852.         (if (IN langbits i)
  853.             (
  854.                 (if (= 2 (exists thislangdir))
  855.                     (
  856.                         (copyfiles
  857.                             (source "")
  858.                             (dest newdir)
  859.                             (pattern ("%s#?" thislangdir))
  860.                             (optional force)
  861.                         )
  862.                     )
  863.                     (
  864.                         (if (= 1 (exists ("doc_%s.lha" thislangdir)))
  865.                             (
  866.                                 (if (= 1 (exists "lhex"))
  867.                                     (
  868.                                         (run ("lhex -afFqw=%s e doc_%s.lha" newdir thislangdir))
  869.                                     )
  870.                                     (
  871.                                         (message ("LhA -a -m -M x doc_%s.lha %s/" thislangdir newdir))
  872.                                         (run ("LhA -a -m -M x doc_%s.lha %s/" thislangdir newdir))
  873.                                     )
  874.                                 )
  875.                             )
  876.                             (
  877.                                 (message (txt_cannot_find_lang_docs thislang))
  878.                             )
  879.                         )
  880.                     )
  881.                 )
  882.                 (if (= 2 (exists (tackon "Catalogs" thislangdir)))
  883.                     (
  884.                         (copyfiles
  885.                             (source "Catalogs")
  886.                             (dest (tackon newdir "Catalogs"))
  887.                             (pattern thislangdir)
  888.                             (optional force)
  889.                         )
  890.                     )
  891.                     ( ; else
  892.                         (if (NOT (patmatch "english" thislangdir))    ; nicht English
  893.                             (
  894.                                 (message (txt_cannot_find_lang_catalogs thislang))
  895.                             )
  896.                         )
  897.                     )
  898.                 )
  899.             )
  900.         )
  901.         (set i (+ i 1))
  902.     )
  903. )
  904.  
  905.  
  906. (set knowndevice 0)
  907. (set noscsicmd 0)
  908. (set nogetgeometry 0)
  909. (set nonewstyle 0)
  910. (set baddevice1 0)
  911. ;(set bufmemtype 1)
  912. ;(set maxtransfer 32256)
  913. ;(set mask 16777214)
  914. ;(set scsireadwrite 0)
  915.  
  916. (if (patmatch "2060scsi.device" devicename)                        ; 2060scsi.device, getestet mit V7.7
  917.     (
  918.         (set knowndevice 1)
  919.     )
  920. )
  921.  
  922. (if (patmatch "ALF.device" devicename)                                ; ALF.device, getestet mit V2.13
  923.     (
  924.         (set knowndevice 1)
  925.         (set nogetgeometry 1)
  926.         (set baddevice1 1)
  927.     )
  928. )
  929.  
  930. (if (patmatch "cybscsi.device" devicename)                        ; cybscsi.device, getestet mit V1.17
  931.     (
  932.         (set knowndevice 1)
  933.     )
  934. )
  935.  
  936. (if (patmatch "dracoscsi.device" devicename)                        ; dracoscsi.device, getestet mit V1.1
  937.     (
  938.         (set knowndevice 1)
  939.         (set nogetgeometry 1)
  940.     )
  941. )
  942.  
  943. (if (patmatch "empscsi.device" devicename)                        ; empscsi.device, getestet mit V1.2
  944.     (
  945.         (set knowndevice 1)
  946.         (set nogetgeometry 1)
  947.         (set baddevice1 1)
  948.     )
  949. )
  950.  
  951. (if (patmatch "evolution.device" devicename)                        ; evolution.device, getestet mit V3.0 und V3.2
  952.     (
  953.         (set knowndevice 1)
  954.         (set nogetgeometry 1)
  955.     )
  956. )
  957.  
  958. (if (patmatch "gvpscsi.device" devicename)                        ; gvpscsi.device, getestet mit V3.7, V3.15, V4.13, V4.15
  959.     (
  960.         (set knowndevice 1)
  961.         (set nogetgeometry 1)
  962.     )
  963. )
  964.  
  965. (if (patmatch "Nexus.device" devicename)                            ; Nexus.device, getestet mit V1.10
  966.     (
  967.         (set knowndevice 1)
  968.         (set nogetgeometry 1)
  969.     )
  970. )
  971.  
  972. (if (patmatch "oktagon.device" devicename)                        ; oktagon.device, verschiedene Ergebnisse mit V6.8 und V6.10 auf verschiedenen Rechnern - NACHHAKEN!
  973.     (
  974.         (set knowndevice 1)
  975.         (set nogetgeometry 1)
  976.     )
  977. )
  978.  
  979. (if (patmatch "omniscsi.device" devicename)                        ; omniscsi.device, getestet mit V1.9 und V1.10
  980.     (
  981.         (set knowndevice 1)
  982.     )
  983. )
  984.  
  985. (if (OR
  986.         (patmatch "scsi.device" devicename)                            ; getestet mit 6.6, 37.64, 40.4, 40.5, 40.12, 40.20, 104.2
  987.         (patmatch "2nd.scsi.device" devicename)
  988.     )
  989.                                                                                 ; scsi.device, getestet mit V40.4, V40.5, V40.12, V40.13 und V40.20
  990.                                                                                 ; bis V40.12 kein TD_GETGEOMETRY
  991.                                                                                 ; V40.13 und V40.20 gibt bei TD_GETGEOMETRY ein Block zuwenig zurück
  992.                                                                                 ; V104.2 ist aus IDEfix/ATAPI und funktioniert
  993.                                                                                 ; V6.6 ist A2091 und liefert bei TD_GETGEOMETRY nur Nullen zurück
  994.     (if (AND (= 104 deviceversion) (= 2 devicerevision))
  995.         (
  996.             (set knowndevice 1)
  997.         )
  998.         ; else                                                                ; V40.x etc. have problems with TD_GETGEOMETRY
  999.         (
  1000.             (if (AND (>= deviceversion 36) (<= deviceversion 40))
  1001.                 (
  1002.                     (set knowndevice 1)
  1003.                     (set nogetgeometry 1)
  1004.                 )
  1005.                 else ;
  1006.                 (
  1007.                     (if (>= deviceversion 6)                            ; V6.6 - A2091
  1008.                         (
  1009.                             (set nogetgeometry 1)
  1010.                         )
  1011.                         else ;
  1012.                         (
  1013.                             (nop)
  1014.                         )
  1015.                     )
  1016.                 )
  1017.             )
  1018.         )
  1019.     )
  1020. )
  1021.  
  1022. (if (patmatch "squirrelscsi.device" devicename)                    ; squirrelscsi.device, getestet mit V37.762
  1023.     (
  1024.         (set knowndevice 1)
  1025.     )
  1026. )
  1027.  
  1028. (if (patmatch "vobscsi.device" devicename)                        ; vobscsi.device, getestet mit V37.3
  1029.     (
  1030.         (set knowndevice 1)
  1031.         (set nogetgeometry 1)
  1032.     )
  1033. )
  1034.  
  1035. (if (patmatch "warpdrive.device" devicename)                        ; warpdrive.device, getestet mit V40.66
  1036.     (
  1037.         (set knowndevice 1)
  1038.         (set nogetgeometry 1)
  1039.     )
  1040. )
  1041.  
  1042. (if (patmatch "z3scsi.device" devicename)                            ; z3scsi.device, getestet mit V5.997, 5.1034
  1043.     (
  1044.         (set knowndevice 1)
  1045.     )
  1046. )
  1047.  
  1048. (if (= 0 knowndevice)
  1049.     (
  1050.         (message txt_warning_unknown_device_etc)
  1051.         (if (askbool
  1052.                 (prompt txt_start_rdbtools_debug)
  1053.                 (help txt_start_rdbtools_debug_help)
  1054.                 (default 0)
  1055.             )
  1056.             (
  1057.                 (run ("rdbtools-debug >T:RDB-Tools-Mail \"%s\" \"%lu\"" devicename unitnumber))
  1058.                 (message txt_start_rdbtools_debug_thanx)
  1059.             )
  1060.         )
  1061.     )
  1062. )
  1063.  
  1064. (tooltype
  1065.     (dest (tackon newdir "RDB-Salv") )
  1066.     (settooltype "DEVICE" devicename )
  1067.     (settooltype "UNIT" ("%lu" unitnumber) )
  1068.     (if (= 1 nogetgeometry) (settooltype "NOGETGEOMETRY" ""))
  1069.     (if (= 1 noscsicmd) (settooltype "NOSCSICMD" ""))
  1070.     (if (= 1 nonewstyle) (settooltype "NONEWSTYLE" ""))
  1071.     (if (= 1 baddevice1) (settooltype "BADDEVICE1" ""))
  1072. )
  1073.